home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGNG_C
/
C_WINDW.LZH
/
CURSOR1.C
< prev
next >
Wrap
Text File
|
1987-12-09
|
896b
|
28 lines
/* (c) Marietta Systems, Inc. 1987
* All rights reserved
*
* Demonstration program of function set-crsr
*/
#include "mtest.h"
void main() {
int x;
char text[4];
clr_scrn("Set_crsr test");
if (1 > mk_wndw(5, 10, 16, 41, "A 10 X 30 window")) goodbye(501);
display("123456789012345678901234567890", 1, 1, reverse);
for (x = 2 ; x <= 10 ; sprintf(text, "%u", x),
display(text, x++, 1, high));
/* */
jump: disp_msg("Cursor to (4,10), press a key",1); read_kb();
set_crsr(-5, -20);
disp_msg("Cursor to (6,15), press a key",1); read_kb();
set_crsr(6, 15);
disp_msg("Cursor to (1,1), press a key",1); read_kb();
set_crsr(1, 1);
disp_msg("Cursor to (10,30), press a key",1); read_kb();
set_crsr(10, 30);
idleloop(30);
if (disp_qry(" Around again")) goto jump;
goodbye(0);
}